| Filename | (eval 1140)[/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm:78] |
| Statements | Executed 5 statements in 4µs |
| Eval Invoked At | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm line 78 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | sub { | ||||
| 2 | 1 | 400ns | my $context = shift || die "template sub called without context\n"; | ||
| 3 | 1 | 2µs | 1 | 2µs | my $stash = $context->stash; # spent 2µs making 1 call to Template::Context::stash |
| 4 | 1 | 200ns | my $output = ''; | ||
| 5 | 1 | 200ns | my $_tt_error; | ||
| 6 | |||||
| 7 | 1 | 800ns | eval { BLOCK: { | ||
| 8 | $output .= " </div>\n\n"; | ||||
| 9 | #line 67 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 10 | if (($stash->get('languages_loop'))) { | ||||
| 11 | $output .= "\n "; | ||||
| 12 | #line 66 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 13 | if (!(($stash->get('one_language_enabled')))) { | ||||
| 14 | $output .= "\n <div id=\"changelanguage\" class=\"navbar navbar-fixed-bottom\">\n <div class=\"navbar-inner\">\n <ul id=\"i18nMenu\" class=\"nav\">\n "; | ||||
| 15 | #line 62 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 16 | |||||
| 17 | # FOREACH | ||||
| 18 | do { | ||||
| 19 | my ($_tt_value, $_tt_error, $_tt_oldloop); | ||||
| 20 | my $_tt_list = $stash->get('languages_loop'); | ||||
| 21 | |||||
| 22 | unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) { | ||||
| 23 | $_tt_list = Template::Config->iterator($_tt_list) | ||||
| 24 | || die $Template::Config::ERROR, "\n"; | ||||
| 25 | } | ||||
| 26 | |||||
| 27 | ($_tt_value, $_tt_error) = $_tt_list->get_first(); | ||||
| 28 | eval { $_tt_oldloop = $stash->get('loop') }; | ||||
| 29 | $stash->set('loop', $_tt_list); | ||||
| 30 | eval { | ||||
| 31 | FOR1: while (! $_tt_error) { | ||||
| 32 | $stash->{'languages_loo'} = $_tt_value; | ||||
| 33 | $output .= "\n\n "; | ||||
| 34 | #line 60 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 35 | if (($stash->get(['languages_loo', 0, 'group_enabled', 0]))) { | ||||
| 36 | $output .= "\n "; | ||||
| 37 | #line 59 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 38 | if (($stash->get(['languages_loo', 0, 'plural', 0]))) { | ||||
| 39 | $output .= "\n <li class=\"dropdown\"><a class=\"dropdown-toggle dropup\" data-toggle=\"dropdown\" id=\"show"; | ||||
| 40 | #line 12 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 41 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 42 | $output .= "\" href=\"#\">\n "; | ||||
| 43 | #line 17 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 44 | if (($stash->get(['languages_loo', 0, 'native_description', 0]))) { | ||||
| 45 | $output .= "\n "; | ||||
| 46 | #line 14 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 47 | $output .= $stash->get(['languages_loo', 0, 'native_description', 0]); | ||||
| 48 | $output .= "\n "; | ||||
| 49 | } | ||||
| 50 | else { | ||||
| 51 | $output .= "\n "; | ||||
| 52 | #line 16 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 53 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 54 | $output .= "\n "; | ||||
| 55 | } | ||||
| 56 | |||||
| 57 | $output .= "\n "; | ||||
| 58 | #line 24 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 59 | |||||
| 60 | # FOREACH | ||||
| 61 | do { | ||||
| 62 | my ($_tt_value, $_tt_error, $_tt_oldloop); | ||||
| 63 | my $_tt_list = $stash->get(['languages_loo', 0, 'sublanguages_loop', 0]); | ||||
| 64 | |||||
| 65 | unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) { | ||||
| 66 | $_tt_list = Template::Config->iterator($_tt_list) | ||||
| 67 | || die $Template::Config::ERROR, "\n"; | ||||
| 68 | } | ||||
| 69 | |||||
| 70 | ($_tt_value, $_tt_error) = $_tt_list->get_first(); | ||||
| 71 | eval { $_tt_oldloop = $stash->get('loop') }; | ||||
| 72 | $stash->set('loop', $_tt_list); | ||||
| 73 | eval { | ||||
| 74 | FOR2: while (! $_tt_error) { | ||||
| 75 | $stash->{'sublanguages_loo'} = $_tt_value; | ||||
| 76 | $output .= "\n "; | ||||
| 77 | #line 23 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 78 | if (($stash->get(['sublanguages_loo', 0, 'enabled', 0]))) { | ||||
| 79 | $output .= "\n "; | ||||
| 80 | #line 22 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 81 | if (($stash->get(['sublanguages_loo', 0, 'sublanguage_current', 0]))) { | ||||
| 82 | $output .= "\n <span class=\"sublanguage-selected\">("; | ||||
| 83 | #line 21 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 84 | $output .= $stash->get(['sublanguages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 85 | $output .= ")</span>\n "; | ||||
| 86 | } | ||||
| 87 | |||||
| 88 | $output .= "\n "; | ||||
| 89 | } | ||||
| 90 | |||||
| 91 | $output .= "\n ";; | ||||
| 92 | ($_tt_value, $_tt_error) = $_tt_list->get_next(); | ||||
| 93 | } | ||||
| 94 | }; | ||||
| 95 | $stash->set('loop', $_tt_oldloop); | ||||
| 96 | die $@ if $@; | ||||
| 97 | $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE; | ||||
| 98 | die $_tt_error if $_tt_error; | ||||
| 99 | }; | ||||
| 100 | |||||
| 101 | $output .= "\n <span class=\"caret\"></span></a>\n <ul id=\"sub"; | ||||
| 102 | #line 26 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 103 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 104 | $output .= "\" class=\"dropdown-menu\">\n "; | ||||
| 105 | #line 36 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 106 | |||||
| 107 | # FOREACH | ||||
| 108 | do { | ||||
| 109 | my ($_tt_value, $_tt_error, $_tt_oldloop); | ||||
| 110 | my $_tt_list = $stash->get(['languages_loo', 0, 'sublanguages_loop', 0]); | ||||
| 111 | |||||
| 112 | unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) { | ||||
| 113 | $_tt_list = Template::Config->iterator($_tt_list) | ||||
| 114 | || die $Template::Config::ERROR, "\n"; | ||||
| 115 | } | ||||
| 116 | |||||
| 117 | ($_tt_value, $_tt_error) = $_tt_list->get_first(); | ||||
| 118 | eval { $_tt_oldloop = $stash->get('loop') }; | ||||
| 119 | $stash->set('loop', $_tt_list); | ||||
| 120 | eval { | ||||
| 121 | FOR2: while (! $_tt_error) { | ||||
| 122 | $stash->{'sublanguages_loo'} = $_tt_value; | ||||
| 123 | $output .= "\n "; | ||||
| 124 | #line 34 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 125 | if (($stash->get(['sublanguages_loo', 0, 'enabled', 0]))) { | ||||
| 126 | $output .= "\n "; | ||||
| 127 | #line 33 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 128 | if (($stash->get(['sublanguages_loo', 0, 'sublanguage_current', 0]))) { | ||||
| 129 | $output .= "\n <li class=\"navbar-text\"> <a href=\"#\" class=\"currentlanguage disabled\">"; | ||||
| 130 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 131 | $output .= $stash->get(['sublanguages_loo', 0, 'native_description', 0]); | ||||
| 132 | $output .= " "; | ||||
| 133 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 134 | $output .= $stash->get(['sublanguages_loo', 0, 'script_description', 0]); | ||||
| 135 | $output .= " "; | ||||
| 136 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 137 | $output .= $stash->get(['sublanguages_loo', 0, 'region_description', 0]); | ||||
| 138 | $output .= " "; | ||||
| 139 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 140 | $output .= $stash->get(['sublanguages_loo', 0, 'variant_description', 0]); | ||||
| 141 | $output .= " ("; | ||||
| 142 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 143 | $output .= $stash->get(['sublanguages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 144 | $output .= ")</a></li>\n "; | ||||
| 145 | } | ||||
| 146 | else { | ||||
| 147 | $output .= "\n <li><a href=\"/cgi-bin/koha/changelanguage.pl?language="; | ||||
| 148 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 149 | $output .= $stash->get(['sublanguages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 150 | $output .= "\"> "; | ||||
| 151 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 152 | $output .= $stash->get(['sublanguages_loo', 0, 'native_description', 0]); | ||||
| 153 | $output .= " "; | ||||
| 154 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 155 | $output .= $stash->get(['sublanguages_loo', 0, 'script_description', 0]); | ||||
| 156 | $output .= " "; | ||||
| 157 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 158 | $output .= $stash->get(['sublanguages_loo', 0, 'region_description', 0]); | ||||
| 159 | $output .= " "; | ||||
| 160 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 161 | $output .= $stash->get(['sublanguages_loo', 0, 'variant_description', 0]); | ||||
| 162 | $output .= " ("; | ||||
| 163 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 164 | $output .= $stash->get(['sublanguages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 165 | $output .= ")</a></li>\n "; | ||||
| 166 | } | ||||
| 167 | |||||
| 168 | $output .= "\n "; | ||||
| 169 | } | ||||
| 170 | |||||
| 171 | $output .= "\n\n ";; | ||||
| 172 | ($_tt_value, $_tt_error) = $_tt_list->get_next(); | ||||
| 173 | } | ||||
| 174 | }; | ||||
| 175 | $stash->set('loop', $_tt_oldloop); | ||||
| 176 | die $@ if $@; | ||||
| 177 | $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE; | ||||
| 178 | die $_tt_error if $_tt_error; | ||||
| 179 | }; | ||||
| 180 | |||||
| 181 | $output .= "\n </ul></li>\n\n "; | ||||
| 182 | } | ||||
| 183 | else { | ||||
| 184 | $output .= "\n "; | ||||
| 185 | #line 58 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 186 | if (($stash->get(['languages_loo', 0, 'group_enabled', 0]))) { | ||||
| 187 | $output .= "\n "; | ||||
| 188 | #line 57 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 189 | if (($stash->get(['languages_loo', 0, 'current', 0]))) { | ||||
| 190 | $output .= "\n <li class=\"navbar-text\">\n "; | ||||
| 191 | #line 47 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 192 | if (($stash->get(['languages_loo', 0, 'native_description', 0]))) { | ||||
| 193 | $output .= "\n <span class=\"currentlanguage\">"; | ||||
| 194 | #line 44 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 195 | $output .= $stash->get(['languages_loo', 0, 'native_description', 0]); | ||||
| 196 | $output .= "</span>\n "; | ||||
| 197 | } | ||||
| 198 | else { | ||||
| 199 | $output .= "\n <span class=\"currentlanguage\">"; | ||||
| 200 | #line 46 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 201 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 202 | $output .= "</span>\n "; | ||||
| 203 | } | ||||
| 204 | |||||
| 205 | $output .= "\n </li>\n "; | ||||
| 206 | } | ||||
| 207 | else { | ||||
| 208 | $output .= "\n <li><a href=\"/cgi-bin/koha/changelanguage.pl?language="; | ||||
| 209 | #line 50 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 210 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 211 | $output .= "\">\n "; | ||||
| 212 | #line 55 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 213 | if (($stash->get(['languages_loo', 0, 'native_description', 0]))) { | ||||
| 214 | $output .= "\n "; | ||||
| 215 | #line 52 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 216 | $output .= $stash->get(['languages_loo', 0, 'native_description', 0]); | ||||
| 217 | $output .= "\n "; | ||||
| 218 | } | ||||
| 219 | else { | ||||
| 220 | $output .= "\n "; | ||||
| 221 | #line 54 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 222 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 223 | $output .= "\n "; | ||||
| 224 | } | ||||
| 225 | |||||
| 226 | $output .= "\n </a></li>\n "; | ||||
| 227 | } | ||||
| 228 | |||||
| 229 | $output .= "\n "; | ||||
| 230 | } | ||||
| 231 | |||||
| 232 | $output .= "\n "; | ||||
| 233 | } | ||||
| 234 | |||||
| 235 | $output .= "\n "; | ||||
| 236 | } | ||||
| 237 | |||||
| 238 | $output .= "\n\n ";; | ||||
| 239 | ($_tt_value, $_tt_error) = $_tt_list->get_next(); | ||||
| 240 | } | ||||
| 241 | }; | ||||
| 242 | $stash->set('loop', $_tt_oldloop); | ||||
| 243 | die $@ if $@; | ||||
| 244 | $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE; | ||||
| 245 | die $_tt_error if $_tt_error; | ||||
| 246 | }; | ||||
| 247 | |||||
| 248 | $output .= "\n </ul>\n </div>\n </div>\n "; | ||||
| 249 | } | ||||
| 250 | |||||
| 251 | $output .= "\n"; | ||||
| 252 | } | ||||
| 253 | |||||
| 254 | $output .= "\n <span id=\"audio-alert\"></span>\n </body>\n</html>\n"; | ||||
| 255 | } }; | ||||
| 256 | if ($@) { | ||||
| 257 | $_tt_error = $context->catch($@, \$output); | ||||
| 258 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
| 259 | } | ||||
| 260 | |||||
| 261 | return $output; | ||||
| 262 | } | ||||
| 263 | |||||
| 264 | ; |